home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1988 / 06 / lpi386 / gettim.for next >
Text File  |  1987-12-28  |  465b  |  16 lines
  1. *    A GETTIM SUBROUTINE FOR LPI/FORTRAN
  2. *    Author:          M. Steven baker
  3. *    Revision Date:   December 29, 1987
  4.  
  5.        subroutine gettim(IHR,IMIN,ISEC,I100)
  6.        INTEGER*4 IHR,IMIN,ISEC,I100
  7. *      LOGICAL DOSCALL
  8.        CHARACTER*1 REGS(4,5)
  9.        REGS(2,1) = CHAR(44)
  10.        CALL DOSCALL(REGS)
  11.        IHR =  ICHAR( REGS(2,3) )
  12.        IMIN = ICHAR( REGS(1,3) )
  13.        ISEC = ICHAR( REGS(2,4) )
  14.        I100 = ICHAR( REGS(1,4) )
  15.        end
  16.